unit bootstrap;

interface

procedure EnterKernel; external name 'PASCALMAIN';

procedure RegisterBlock(Ptr: pointer; size: PtrInt); external name 'RegisterBlock';
procedure ReserveBlock(Ptr: pointer; size: PtrInt); external name 'ReserveBlock';

implementation

{$ifdef customboot}

{$else}
uses multiboot;
{$endif}

end.
